home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / DREIECK.LST < prev    next >
File List  |  1989-06-01  |  346b  |  24 lines
  1. ' Dreieckwelle
  2. @init
  3. @spielen
  4. END
  5. '
  6. PROCEDURE init
  7.   DIM wert&(255)
  8. RETURN
  9. PROCEDURE spielen
  10.   @dreieck
  11.   FOR j%=300 TO 600 STEP 100
  12.     SOUND j%,12,255,0
  13.   NEXT j%
  14. RETURN
  15. PROCEDURE dreieck
  16.   FOR i%=0 TO 63
  17.     wert&(i%)=-127+i%*4
  18.     wert&(i%+64)=127-i%*4
  19.     wert&(i%+126)=-127+i%*4
  20.     wert&(i%+189)=127-i%*4
  21.   NEXT i%
  22.   WAVE 0,wert&()
  23. RETURN
  24.